home *** CD-ROM | disk | FTP | other *** search
/ Explore Yellowstone / Explore Yellowstone (1997)(The Learning Company)[PC-Mac].iso / pc / help.dir / 00008_Script_sc close < prev    next >
Text File  |  1996-02-27  |  421b  |  19 lines
  1. on mouseDown 
  2.   global WhichChannel, WhichCast
  3.   set the castNum of sprite WhichChannel to WhichCast
  4.   updateStage    
  5. end
  6.  
  7. on mouseUp
  8.   global WhichChannel, WhichCast, closeFlag
  9.   set the castNum of sprite WhichChannel to (WhichCast + 1)
  10.   updateStage
  11.   if closeFlag = FALSE then
  12.     set closeFlag = TRUE
  13.     puppetSprite WhichChannel, FALSE
  14.     play done
  15.   else
  16.     set closeFlag = FALSE
  17.   end if
  18. end
  19.